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Book 4 

Editing 

the 
Source Program 

DECtape Editor 
(Editor) 

Line Editor for Disk 
(LINED) 

Text Editor and Corrector 
(TECO) 
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SOURCE PROGRAM PREPARATION 

DECTAPE EDITOR (EDITOR) 

Editor creates, adds to, or deletes from sequentially numbered source files recorded in lines of ASCII 
characters on a DECtape . Editor edits the source file; (the input and output files are the same) . Fresh 
source files have editing space in each physical DECtape block. If the user has more edits for a block 
than will fit in it, an extra block in the DECtape is used and appropriately linked to the preceding and 
following logical blocks of the file. Editor provides a simple method of creating or modifying Macro or 
FORTRAN IV source progroms. 



Requirements 

Minimum Core: 
Additional Core: 
Equipment: 



IK 

Not used 

One DECtape unit for the reel containing the file(s) to be 
modified 



Initialization 



R EDITOR 



Loads the DECtape Editor program. 
Editor is ready to receive a command 



Commands 



InTtialtze a Ble For Processing 



Command 



Function 



Sn tA^ 
Sn,filename.ext t A $ 



Select DECtape n and zero the directory. 

Select DECtape n, zero the directory, and 
create a file called filename.ext . 
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Command 



Function 



Sn, filename .ext^ 
Sn, filename .ext $ 



Select DECtape n and locate filename. ext for 
processing. 

Select DECtape n and add a new file called 
filename, ext. 



NOTE 

All the above commands place Editor in the Command mode; 
i .e . , the next typein is assumed to be one of the commands 
given below. 



Insert a Line 



Innnnn 



nnnnn aaaa a 



nnnxx $^ 



Insert the following typed line dt line number 
nnnnn of the currently open file; nnnnn can be 
specified as a line sequence number or as a 
point (.) . A point refers to the last line typed. 
If the line number already exists in the file, 
the line is replaced. 



Insert Multiple Lines 



Innnnn, increments 
nnnnn aaaa . . ,a<Ki) 
nnnxx bbbb . . .bbb ^ 
nnnxx $^ 



Insert the following typed lines, beginning at 
line number nnnnn of the currently open file; 
nnnnn can be specified as a line sequence 
number or as a point (.). Each time a line is 
entered, nnnnn is increased by the specified 
increment, and the result becomes the line 
number for the next insertion. Type $ after 
last line insertion. 



Delete a Line 



Dnnnnn ^ 



Delete line number nnnnn from the currently 
open file; nnnnn can be specified os a line 
sequence number or as a point (.) . 
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Command 



Function 



Dm'mmmm ,nnnnn ^ 



Delefe a Series of Lines 



Delete lines mmmmm through nnnnn from the 
currently open file. 



Pnnnnn ^ 

nnnnn aaa. . .aaa^ 



Print a Line 



Print line number nnnnn of the currently open 
file; nnnnn can be specified as a line sequence 
number or as a point (.) . 



Pmmmmm,nnnnn J 
mmmmm aaa . . .aaa ^ 



Print a Series of Lines 



Print lines mmmmm through nnnnn of the 
currently open file. 



nnnnn bbb . . .bbb^ 



Close the Current File 



e; 



(End of file) Closes the currently open file. Another file 

can be opened on the same or a different 
DECtape via an Sn command, or a return 
can be made to AAonitor to terminate Editor. 



Examples 



.R EDITOR } 
*S1 SECTOR J 

*I20:»20; 



Select DECtape 1 and create a new file on 
DECtape 1 called VECTOR. 

Begin inserting at line sequence number 20, 
and increment this number by 20 each time 
a line is inserted. Switch to Text AAode. 



4% 



00020 

m0A0 

00060 
00080 
00100 

00 1 20 
00140 
00160 

001 80 
00200 
00220 
00240 



*I20; 



DEFINE VMAG (A^B)J 

<MOVE 0>AJ 

FMP 03 

MOVE 1:»A + 1^ 

FMP 1^3 

FAD 1 3 

MOVE l>A+2; 

FMP 1>U 

FAD i; 

JSR FSQRTJ 

MOVEM B} 

S $ ; 



Editor responds with first line sequence number. 
Operator types line of coding to be inserted, 
followed by a carriage return. 



Typing $ terminates insertions and returns Editor 
to command mode. 

Change line number 00020. 



00020 DEFINE VMAG (A^B:»C); 
*ILR*; 



*i90; 








00090 


MOVE i,c; 






*iLs*; 


^ 






*D 1 80 3 








*P20-r2203 






00020 


DEFINE VMAG 


CA^B 


,C)3 


00040 


<MovE 0^a; 






00060 


FMP 0} 






000 80 


MOVE WA+i; 






00090 


MOVE UCi 






00100 


FMP 1^3 






00120 


FAD 1 ; 






00140 


MOVE l^A+23 






00160 


FMP l,\'i 






00200 


JSR fsqrt; 






00220 


MOVEM B; 






*E3 








*tc; 









*ILR* indicates that the indexing increment has 
resulted in the next line number being equal to 
the line number of an already existing line (00040) 
Note that the indexing increment remains as 20 
until explicitly changed. 

Insert a line between lines 00080 and 00100. 



*ILS* indicates that the indexing increment has 
resulted in an existing line (00100) being skipped, 
since the next line addressed would be 00110. 

Delete line 00180. 

Print lines 00020 through 00220. 



Close the currently open fife 
Return to the Monitor . 



Diagnostic Messages 
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Editor Diagnostic Messages 



Message 


Meaning 


?DDE* 


Device Data Error due to a write error or WRITE LOCK 
switch . Editor must be restarted . 


?DEC* 


DECtapedirectory is full. 


?FAU* 


Filename Already Used. A filename assigned to a new file 
already exists on the DECtape. 


?ILC* 


Illegal Command. 


*ILR* 
*ILS* 


Insert Line Replacement, Insert Line Skip. The line 
sequence increment specified for the insert function will 
cause the nexf existing line to be either replaced (R) or 
skipped (S) . This is a warning message only and does not 
necessarily indicate an error. 


?NCF* 


Not a Current File. 


?NFO* 


No File Open. A command requiring an active file has been 
given but no file is currently open. 


?NLN* 


Nonexistent Line Number. A print (P) or delete (D) command 
refers to a nonexistent line. 


?UNA* 


Unit Not Available. The DECtape specified in an Sn command 
is assigned to another job . 
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LINE EDITOR FOR DISK (LINED) 



LINED IS similar to DEOape Editor, but operates on disk files instead of DECtape files. LINED is 
called In by typing 

^R LINED 

* . LINED responds with an asterisk to indicate 

It is ready to accept a command string . 
Commands 

LINED commands are very similar to those of Editor; consequently, only a brief summary is given here 



Command 



Function 



S filename .ext } 
S filename, ext $ 

Innnnn ) 

Innnnn, Increment ) 

Dnnnnn J 
Dmmmmm,nnnnn ^ 

Pnnnnn ^ 
Pmmmmm,nnnnn^ 



Select an existing file for editing. 
Select (create) a new file for editing . 

Insert a line at line number nnnnn. 

Insert multiple lines, starting at line number 
nnnnn and incrementing the line number each time 

Delete the line at line number nnnnn. 
Delete lines mmmmm through nnnnn. 

Print line number nnnnn on the Teletype. 

Print lines mmmmm through nnnnn on the Teletype. 

End (close) the current file. 

If in Insertion Mode, ignore current text line 
and return to LINED command level . If in 
Command Mode, print the next line. 



NOTE 

Files are written with standard protection (055). 'All blocks 
are assumed to have integral number of lines. Use the /A 
switch (line blocking) with PIP to put each file on disk. 



Diagnostic Messages 



The diagnostic messages for LINED are similar to those for Editor. The diagnostic message ?DEC* Is 
not included, and the, following message Is added: 



Message 
?CCL* 



Meaning 

CCL error. Error occurred while referencing CCL 
command fi ie , 
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Monifor Commands 

To call in LINED and open a new file for creation: 

Monitor Command Equivalent CUSP Commands 

^CREATE filename .ext; ^R LINED J 

^ *S filename .ext $ 

To call In LINED and open an existing file for editing: 

Monitor Command Equivalent CUSP Command 

JDIT filename. ext; ^R LINEDi 

*S filename. ext 
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TEXT EDFTOR AND CORRECTOR aECO)* 

TECO edits files recorded in ASCII characfers on any standard device. It can perform simple editing 
functions as well as highly sophisticated search, match, and substitute operations, and operate upon 
arbitrary length character strings under control of commands which are themselves character strings 
(and contains the mechanisms necessary to exploit this recursiveness) . 



Requirements 



Minimum Core: 
Additional Core 

Equipment 



4K 

Takes advantage of any additional core available. Each IK 
additional core augments the basic' 6,200+ - character buffer 
by 5K additional characters. • 

One input device and one output device. 



NOTE 

TECO automatically requests more core to expand its 
buffer under any of the following conditions: 



*PDP-10 TECO is based on PDP-1 TECO, developed at MIT by Daniel Murphy, and PDP-6 TECO, 
developed at MIT's project MAC by Stewart Nelson and Richard Greenblatt. 
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a . An insert by way of the "I" command or "X" 
(Q Register) will overflow the present memory 
boundaries . 

b. The command acceptance routine needs more 
core . 

c . The total number of characters in the Data 
Buffer falls below 3000, and an input command 
from a peripheral device (other than the user 
console) is executed. Thus, TECO maintains a 
Data Buffer of at least 3000 characters . 

If TECO is successful at obtaining more core, the follow- 
ing message will be typed: 

*10000<IJS>$$ 

[5KCORE] nk Core, where n is 

new core size of job 
* 

If TECO is unsuccessful at obtaining the core request, 
the following message is typed: ' 

STORAGE CAPACITY EXCEEDED 

? 

* 



Initialization 



^R TECO^ Loads the Text Editor and Corrector program, 

* TECO is ready to accep^ a command . 



Basic Commands 



NOTE 

When typing command strings to TECO, the following 
points should be noted . 

$ One $ is used to terminate the text within 

a command string, where applicable; two 
successive $s terminate the entire command 
string sequence and generate a RETURN, 
LINE-FEED. 



RUBOUTj The RUBOUT key can be used to erase the 
preceding typed-in character (s) of a com- 
mand string. Each character erased is 
e choed back on the teletype (e .g . , ABD 
CjUBOyp DC...). Successive RUBOUTs 
con be used to erase more than one character 
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N .B . To erase a carriage return (which generates 
RETURN, LINE-FEED), tw6 RUBOUT's are required, 
one RUBOUT to erase the LINE-FEED and one to 
erase the RETURN . 

Two successive tGs ( (BELL) s) can be used to wipe 
out the entire command string currently being typed. 

TECO commands in the form tx (where x is any character) 
can be entered by either holding down the CTRL key 
while striking the x key or typing up-arrow (shift N) 
followed by the x character. These alternatives are 
not true where tx is a character within a text string 
(such as in a Search argument); in this case, the CTRL 
key must be used . 

A carriage return, line feed, { } ) h ignored in a TECO 
command string as long as it does not appear within a 
particular command, such as Insert. Examples of this are 
given on the following pages. 



Select The Input Device 



Command 



Function 



ERdev: filename .ext [proj ,prog3 

$ 



Edit Read. Selects the input device and file 
(if specified). 

dev:* 



DTAn: 


(DECtape) 


PTR: 


(paper tape reader) 


DSK: 


(disk) 


MTAn: 


(magnetic tape) 


CDR: 


(card reader) 



filename .ext (DSK: or DTAn: only) 

[proj, prog] (DSK: only) 

NOTE 

Device TTY: cannot be used 
here . See \ (Insefrt) command . 

Specified only if file is located in 
other than user's area. 



EBdev: filename. ext $ 



Edit Backup. Selects an input and file to be 
edited (the input device, which will also be 
the output device for the edited file, must be 
the disk*). EB is intended to be used to keep 
a backup of a file during a debugging session, 
without the user having to invent a new name 
for each version of the file. 



*If dev: is not specified, DSK: ts assumed . 



504 



Command 



Function 



For example, the command string sequence 
EBPROGl.AAAC $ 

editing 

EF $$ 

results in: 

a . Reading from file PROGl .NAAC on disk 

h. Creating a new output file, which is 
initially given a temporary name of TECOnn.TMP, 
where nn is the user's job number in octal; in- 
corporating the job number rn the filename solves 
the problem of identifying temporary files belong- 
ing to multiple 100,100 users 

c. Performing a number of RENAMEs following 
the EF command so that the input file becomes 
PROGl .BAK, any previous PROGl .BAK file is 
deleted, and the new output file becomes 
PROG I.MAC. 

An ER command can be given following an EB 
command and before the EF command, but an 
intervening EW command is illegal and results 
in the error message ?22 (see Table 2-5). Even 
though an ER command may be given, the name of 
the final output file is still taken from the EB 
command . 



Select The Output Device 



EWdevifilename.ext [pro], prog] 

$ 
EZdev.filename.ext [proj,prog] 

$ 



Edit Write. Selects the output device and file 
(if specified). 

Edit Zero . Selects the output, device and file 
(if specified), and rewinds the tape (if magnetic 
tape) or zeros the directory (if DECtape). 



dev 



.* 



DTAn: 


(DECtape) 


DSK: 


(disk) 


MTAn: 


(magnetic tape) 


PTP: 


(paper tape punch) 


LPT: 


(line printer) 



*If dev: is not specified, DSK: is assumed 



Command ' FuncHon 



filename .ext (DSK: or DTAn: only) 
[ pro}, prog] (DSK: only) 



Specified only if file rs located 
in other than user's area. 



Terminate Output; Close File 



EF End File. Terminate output on the current 

output file and close the file without selecting 
a new output file. 

EX Exit. The EX command finishes the current edit 

operation by writing out all remaining pages of 
a file, performing an EF (End of File) command, 
and then exiting to the Monitor. Thus, EX is 
equivalent to the command string 

lOOOOOOPEF (BELL) 

EG Exit and Go . The EG command executes an 

EX command followed by the last Monitor 
command (COMPILE, LOAD, EXECUTE, or 
DEBUG) typed by the user. (See Chapter 9.) 



Magnetic Tape Positioning 



EM Edit Magtape. Rewind the currently selected 

input magnetic tape. , 

nEM Depending upon the value of n, perform one 

of the following operations on the currently 
selected input magnetic tape. 

n Operation 

1 Rewind tape to load point. 

3 Write end of file. 

6 Skip one record . 

7 Backspace one record . 

8 Skip to logical end of tape. 

9 Rewind and unload tape. 
11 Erase 3 in. of tape. 

14 Advance tape one file. 

15 Backspace tape one file. 

NOTE 

Throughout TECO, all numbers in 
command strings are interpreted as 
decimal . 
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Input Commands 



Command 
Y 



Function 

Yank . Read from current input device into buffer 
until 

a. A FORM character is read (i .e. , a page has 
been input) , or 

b. The buffer is more than 2/3 full and one of the 
following is encountered 

(1) Line Feed 

(2) Form Feed 

c . or a point 128 characters from the end of the 
buffer is reached. 

NOTE 

The FORM character, if read, does not enter the 
buffer. Any data previously residing in the buffer 
is destroyed. The pointer is positioned immediately 
before the first character in the buffer. Representa- 
tive buffer size for 5K TECO: 

Total buffer capacity = approx . 1 1 ,200 characters 

2/tJ buffer capacity = approx. 7,460 characters 

1 line-printer page =7,200 characters (120 char./ 
line) 

(60 lines) 7,800 characters (130 char ./line) 

Append. Read from the current input device and 
append the incoming data to information already 
residing in the buffer. Terminate reading on the 
same conditions as in Y . 



NOTE 

No previous data is destroyed , The 
pointer is not moved. 



Output Commands 



PW 



Punch, Wait. Output the entire buffer to the 
selected output device, with a FORM character 
appended as the last character. Do not alter the 
contents of the buffer or move the pointer. 
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Command Function 

P Equivalent to a PW command, followed by a Y 

command (i .e. , output the current contents of the 
buffer followed by a FORM character, and then 
read in more data from the input device). 

np Perform the P command n times. 

m,nP Output the m+1 through the nth character from the 

buffer to>he current output file. Do not append a 
FORM character at the end. Do not alter the 
contents of the buffer or move the pointer. 



Editing Commands 



Move The Pointer 

nj Jump. Move pointer to the right of the nth buffer 

character and give the pointer symbol (.) the value 
of n. If n is omitted, set pointer in front of the first 
buffer character (same as OJ) . 

r»C Continue. Set the pointer to the right of the nth 

character beyond the pointer's present position 
(equal to .-hiJ). If n is omitted, 1 is assumed. 

nR Reverse. Set the pointer to the left of the nth 

character prior to the pointer's present position 
(equal to .-n). If n is omitted, 1 is assumed. 

nL Lines. +n - Move the pointer to the right, stop- 

ping after It has passed over n LINE-FEED 
characters . 

-n - Move the pointer to the left, stopping after it 
has passed over n +1 LINE-FEED characters, then 
move to the right of the last LINE-FEED character 
passed over . 

If n Is omitted , assume 1 L . 



Delete Text 

nD Delete. Delete n characters, 

+ n - Delete n characters just to the right of th< 
pointer. 

-n - Delete n characters just to the left of the 
pointer . 

If n is omitted, 1 Is assumed. 

nK 
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Command Function 

nK KlJl . -Hi - Move the pointer to the right, 

stopping after it has passed over n LINE-FEED 
characters. Delete all characters the pointer 
passes over . 

-n - Move the pointer to the left, stopping 
after it has passed over n+1 LINE-FEED 
characters, then move it to the right of 
the last LINE-FEED character passed over. 
Delete all characters between this point 
and the pointer's previous position. 

If n is omitted, 1 is assumed. 

m,nK Delete the m+1 through the nth characters 

of the buffer. Set the pointer where the 
deletion occurred. 



Insert Text 

Itext. . . $ Insert. Insert the text following the "I" up 

to, but not including, the $ character, begin- 
ning at the current pointer position . Move 
the pointer to the right of Jhe inserted material . 

nl Insert at the pointer location a character with 

an ASCII code of n (n must be a decimal value) . 
Move the pointer to the right of the inserted 
character. 

n\ Insert at the current pointer location the ASCII 

text representation of the decimal value of the 
expression n . Move the pointer to the right of 
the inserted text. 

"H text. . . $ Insert at the current pointer location a ( H ) 

character and the following text up to, but not 
including, the $ character. Move the pointer to 
the right of the inserted text. 

@l/text/ Insert at the current pointer location the text 

which follows. The text is delimited by a 
character, /, which can be any character not 
appearing in the text. 

Type Text 



NOTE 
T commands do not move the pointer 
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Command 



Function 



nT 



m,nT 



Type. Type out the string of characters beginning 
at the current pointer position and terminating 
after the nth LINE-FEED character is encountered. 

+n - Typeout n lines to the right of the current 
pointer position . 

-n - Typeout n lines to the left of the current 
pointer position . 

If n is omitted, the value is assumed to be 1 . 

Type out the m + 1 through the nth characters of 
the buffer. 



Stand-Alone Examples (Elementary) 



Open an Input File 



ERDTA5: SOURCE. MAC 



ERDSK: SRC E.MAC l\2,?.Al 



ERPTR 



Open the input file called SOURCE. AAAC 
located on DTA5 . 

Open the input file called SRCE.MAC 
located in area 12,24 on the disk. 

Open an input file on the paper tape reader 



Open an Output File 



EWDTA3 :ED I TED .MAC 



EZDTAl : DEBUG. MAC 



Open an output file on DTA3 and call it 
EDITED. MAC. 

Zero the directory on DTAl , open an output 
file on it, and call the file DEBUG. MAC. 



Read a Page 



Read a page into the buffer from the current 
input file, destroying the previous contents 
of the buffer. 

Read a page into the buffer, appending the 
data to the end of the information currently 
In the buffer. 
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Output Data 



Command 



Function 



PW 

6P 
12,50P 



Output the entire buffer, followed by a FORM 
character. 

Execute the WRITE and READ cycle six times. 

Write out the 13th through the 50th characters 
of the buffer. 



Pointer Positioning 



Y18J 
5R 



Read in a page of information and position the 
pointer after the 18th character of the buffer. 

Then, move the pointer left to between char- 
acters 13 and 14. 



Delete Text 



J19C3D 



or 



19,22K 



Move the pointer teethe right of the 19th 
character in the buffer and then delete the 
next three characters to the right (characters 
20, 21, and 22). 



Delete the 19 + 1 (20th) through th( 
characters of the buffer , 



22nd 



Insert Text 



J2LITAG: MOVE 1 , AMT 
$ 



69\ 



Move the pointer to a position following the 
second line of the buffer; insert the text TAG: 
MOVE 1 , AMT between the second and third 
lines of the buffer. 

Insert the digits 69 in ASCII at the current 
pointer position (same as 169 or $ or 541 571) . 



H ERROR IN JOB $ 



NOTE 

Unless a \key is present , \ is tyoed with a 
SHIFT L. 

Insert a tab followed by the text ERROR IN 
JOB at the current pointer position. 
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Command 



Function 



(i^I*E:RDSK:PROGl# } 



Insert the text ERDSK:PROG $ at the current 
pointer position . 

NOTE 

The use of delimiters is the only method 
for inserting a $ in the text. 



Typing Text 



3T 
25,100T 



Type out the first three lines of the buffer. 

Type out the 25 + 1 {26th) through the 100th 
character of the buffer. 



Examples (Basic) 



J.R TECO; 
-ERDTA 1:SCFILE.MACIS; 

*EWDTA2: EDFILE.MACSS'; 

oaaag aaaaa ^ 

bbbbb bbbbb ; 

^ITHIS IS A SAMPLE INSERT J 
ccccc ccccc ^ 



J;KSi.J 



Op^n the file called SCFILE.MAC on DTAl 
for input. 

Open an output file on DTA2 and call it 
EDFILE.MAC. 

Read a buffer of information from the input 
file and type the first 20 characters of the 
buffer . 

Move the pointer to the right, stopping when 
three LINE-FEED characters have been en- 
countered; type the text of the fourth line 
in the buffer. 

Insert the text THIS IS A SAMPLE INSERT ; 
between the third and fourth lines of the 
buffer, and position the pointer after the 
inserted material . 

Write out the current buffer to the output 
device; redd in and write out the next nine 
pages of data; read in the 1 1th page of data 
and position the pointer at the beginning of 
the buffer; type out the first line of the 
buffer . 

Delete this line from the file; position 
the pointer at the beginning of the (now) 
first line in the buffer. 
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Command 



Function 



* Ex$.$; 

EXIT } 
TC ) 



Writes out all remaining pages of the file, 
performs an EF (End of File) command, and 
exits to the Monitor. 



Kill the job, deassign all devices, release 
core. 



Advanced Commands 



Search Commands 



Summary 

S text,$ (Search) - Searches for text in current buffer only. 

N text $ (Nonstop Search) - Searches for text through successive buffers by repeatedly 

writing out current buffer and reading in next buffer (similar 
to P command, but a form character is not inserted after out- 
putti ng each buffer) . 

*-text $ - Searches for text through successive buffers by repeatedly reading in new bufferful 
of information (Y command) . 



NOTES 



All searches begin at the current location of the pointer. 

Each search command can be preceded by the modifier characters 
(: and/or @) . 

: causes the search command to have a numeric value at 
completion; 

if the search has failed (the requested text was not 
found) or -1 if the search was successful (the requested text 
was found) . 

@ indicates that the text to be matched is delimited by some 
character (same as in the @I command) . 

A numeric argument can appear following the modifiers (if 
any) but must precede the command . If the numeric argument 
is n, TECO searches for the nth occurrence of the text. If 
n is not used, the value of n is assumed to be 1 . 

If search is successful, the pointer is positioned to the right of 
the matched text. If the search fails, the pointer is positioned 
at the beginning of the buffer. 
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Use of special characters within text: 

tS - Match any separator character (any 

character not a letter, number, period, 
dollar sign, or percent symbol) . 

tX - Match any (arbitrary) character. Used 

when the contents of some position within 
the text is unirr^ortant. 

tNx - Match any character except X. 

tQ - Takes the next character literally, even 
if it is one of four special characters. 
For example, S tQ tX $ - Find the character 

tx. 

See note under TECO, Basic Commands. 





Search Commands Summary 






Command 


Action at End 
of Buffer 


Action at End 
of File 


Vol 
Success 


jes 
Fail 


Typeout ? 
if Failure 


S 


Failure 


N/A 


N/A 


N/A 


Yes 


:S 


Failure 


N/A 


-1 





No 


N 


Performs a P command 
(but a FORM character 
is not inserted) and 
resumes search 


Failure 


N/A 


N/A 


Yes 


:N 


Performs a P command 
(but a FORM character 
is not inserted) and 
resumes search 


Failure 


-1 





No 




Performs a Y command 
(read only) and resumes 
search 


Failure 


N/A •' 


N/A 


Yes 


'^ 


Performs a Y command 
(read only) and resumes 
search . 


Failure 


-1 





, No 



Q-Register Commands 



Q registers are provided for storing quantities, command strings, or buffer contents for later use. Thirty- 
six Q registers, labeled through 9 and A through Z, are available. 
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Command 



Function 



nUr 

QT 

%i 

m,nXi 

nXi 
GI 

[i 

]r 



Use. Places the numeric value n In Q-register i . 

Q-reglster. Represents the current value in Q-reglster I 

Adds 1 to the value in Q-register i and represents the 
new value. 

Xfer. Copies characters m+1 through the nth character 
of the buffer Into Q-register i , Does not alter buffer 
contents or pointer. 

Copies the buffer characters between the current pointer 
position and the nth LINE-FEED character in Q-register i 

Get, Inserts the text contained in Q-register I into the 
buffer beginning at the current pointer location. Set 
the pointer tp the right of the insertion . 

Pushes the contents of Q-register i onto the Q-register 
pushdown list. 

Pops the top entry of the Q-reglster pushdown list Into 
Q-register i . The Q-register pushdown list Is cleared 
each time two successive $s are typed. 



Macro, Iteration, and Conditional Commands 



MI 
<> 
n <> 



.'tag '. 
O tag $ 
n"G 



Macro. Perform the text in Q-register i as a series of 
commands . 

Iteration brackets. When > Is encountered, command 
interpretation Is sent back to <. 

Perform the commands within the iteration brackets 
n times. 

If not In an Iteration, an error results. If most recent 
search failed, send command interpretation to just 
beyond the matching >on the right; otherwise, no 
effect. 

If not in an Iteration, an error results. If the value of 
n is or greater, send command interpretation just past 
the matching >to the right; otherwise, no effect. 

Tag definition. Tag is the name of the location in 
which It appears in a command string. 

Go to the named tag, which must appear in the current 
macro or command string . 

If n is Greater than or equal to 0, perform commands 
up to next '. Otherwise, skip to next '. 
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Command 



Function 



n"L 
n"N 
n"E 
n"C 



If n is Less than or equal to 0, perform commands up 
to next '. Otherwise, skip to next '. 

If n rs Not equal to 0, perform commands up to next ' . 
Otherwise, skip to next '. 

If n is Equal to 0, perform commands up to next ' . 
Otherwise, skip to next '. 

If n is a symbol Constituent (a letter, number, period, 
dollar sign, or percent symbol), perform commands 
up to next '. Otherwise, skip to next '. 



NOTE 

The double quotation mark (") and the single quotation 
mark (') symbols are matched in the same way as the left 
parenthesis symbol, (, and right parenthesis symbol, ). 



Numeric Values and Arguments in Command Strings 



Many command string formats permit arguments with numeric values. The following characters may 
appear in a command string to develop these values in any instance where a numeric value is permiss- 
able. 



through 9 
B 

Z 



Qi 
nA 



Represent their corresponding numeric values. 

Beginning. Equivalent to 0. 

Equivalent to the number of characters in the buffer. 

Equivalent to the number of characters to the left 
of the current pointer position (or in other words, 
equal to the current pointer position) . 

Q-register. Equivalent to most recent numeric 
value placed in Q-register i. 

ASCII. Equivalent to ASCII value of character to 
right of pointer; n is used to differentiate this 
argument from an Append command (A) and has no 
other significance. 

Equivalent to value of elapsed time in 6C)ths of a 
second since midnight . 

Equivalent to the value of the console data switches 
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Command Function 



tE Has the value of the form feed switch. If, during the last 

Y or A command execution, data transmission was terminated 
by a form feed character, tE has a value of -1 , otherwise, 
the value is 0. 

1 1 (On Teletype Models 33 and 35, hold down both the CTRL 

and SHIR keys and type N.) Equivalent to the ASCII value 
of the next character in the command string; this character 
is not interpreted as a command. 

tT Typed Character . Stops command execution unti I user types 

a character on the Teletype; tT then becomes equivalent to 
the ASCII value of the character typed . 

\ Equivalent to the value represented by the digits (or minus 

sign) immediately following the current pointer position. 
The value is terminated by the first nonnumeric character 
encountered. The pointer is positioned immediately following 
the value. 

- L i f Take one or two arguments. A space is equal to +. 

m*n Multiply 1^ -r i 

/ ^^• . I /. . \ / Take one or two arguments, 

m/n Divide (truncates) J ^ 

m&n Logical AND; bitwise AND of binary representations m and n. 

m*n Logical lOR; bitwise inclusive OR of binary representations 

m and n. 

( ) Operators +, -, *, /, ^ , and $ are normally performed left 

to right. This sequence can be overruled by use of parentheses. 



NOTE 

TECO does not assume that multiplication and division are 
always performed before addition and subtraction. Thus, to 
obtain the equivalent of a + (b * c), one must use the paren- 
theses; otherwise, (a +b) * c is assumed. 

n= Causes the value of n to be typed out. 

H Abbreviation for B, Z . (0 through the last location of th( 

buffer; in other words, the whole buffer). 



NOTE 

If a command takes two numeric arguments, a comma is used 
to separate them , 
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TECO TerminaHon Commands 



Command 



Function 



tc 

tG (BELL) 



Returns control to the Monitor without waiting 
for any I/O operations to finish . 

Returns control to the Monitor after completing 
all current output requests. 



Stand-Alone Examples (Advanced) 



J3SM0VE S IM $ 



Within the current buffer, search for the third 
occurrence (^S) of the text MOVE, position the 
pointer immediately after it, and insert an M at 
that point. 



StNA S 



StS $ 



Search for a Special Character 



Search for any character except A within the 
current buffer. 

Search for any separator character within the 
current buffer. 



Q-Registers, Macros, Iterations, and Conditionals 



J0UN <si 



J%N>QN =: 



Count the number of LINE-FEED characters in 
the buffer as follows: 



1 . Position the pointer at the beginning of 
the buffer (J), 

2. Place in Q-register N(OUN), 

3. Perform a search for a LINE-FEED 
character (S LINE-FEED $); if one is 
found, add 1 to Q-register N (;%N) . 
Go back (< ^ and repeat this cycle until 
the end of the buffer is reached and the 
test fails (;); at this point type out the 
contents of Q-register N(QN =) . 

J<SJUMPA Si -4DIRST $ > Whenever J UMPA appears in the current buffer 

replace it with JRST. 
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Commdnd 



Function 



1 . Position the pointer at the beginning of 
the buffer (J) . 

2. Search for JUMP A; when found, backspace 
the pointer four positions and delete the four 
characters passed over (;-4D) . 

3 . Replace these four characters with the 
characters RST (IRST) . 

4. Repeat this routine (< ^ until the test 
fai Is (end of the buffer has been reached) 
and exit 0) *o >• 



Placing a Command in o Q-Register for Later Execution 



@I# J0UN <Si 



$; 



5%T>QN = #kXP 

To Execute the Command: 

ERDTA3:FN.EX $ YMP 



1 . Insert the text 'JOUN <S}1 $; %N >QN=" 
into the buffer (@I# # ) 

2 . Copy the contents of the buffer into 
Q-register P (HXP) . 



1 . Read in a page of a file to search . 
(ERDTA3:FN.EX$ Y) 

2. Execute the command stored in Q-register 
P(MP). 



Reading in Text to be Inserted in Several PJdces 
in a File and Storing it in a Q-Register 



ERPTR: S YHXP^ 



ERDTA4: TXTEDT $ } 



1 . Assume that the text to be inserted is on 
paper tape. Open an input file on the paper 
tape reader (ERPTR:); read the text into the 
buffer (Y); copy the contents of the buffer 
into Q-register P (HXP) . 

2 . Open the input file to be edited and the 
output file to contain the edited version. 



EWDSK: TXTEDU S) 
YNCALC: $ GP^ 



NTOT: S GP 



3. Read a page from the input file and initiate 
a search for the text CALC: . When found, 
insert the text stored in Q-register P at that 
point (GP). 

4. Search for the text tOT: and, when found, 
insert the text stored in Q-register P after it. 
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Examples (Advanced) 



Command 



FuncHon 



.R TECO) 
*ERMTA1:$E«14EM$S; 



EZDTA1:REVFIL$$;. 



*^YNTAXRT$0LT; 
1 XI $$ ) 



aaaa . . .TAXRT aaaa aoaaa 



*JNTXRTE$0LT, 0LT; 
bbb...TXRTE bbb......bbbbb 



*NTXTEND:$ ) 

J<SA$;1A-47"G1A-58"L-DIB$">> 

PWEFSS) 



* TGS$) 
EXIT } 
TC;) 



Select MTAl for input; rewind the tape 
(EM) and advance the tape one file (14EM). 

Select DTAI for output; zero the directory; 
open a file and call it REVFIL. 

Read in the first page from the input file; 
search for the text TAXRT; if it connot be 
found, write the buffer out, redd in the 
hext page, search again, etc.; continue 
this Cycle until either TAXRT is found or 
end of file is reached. If TAXRt is found, 
position the pointer at the beginning of the 
line containing it, type the line, and place 
the line in Q-register 1 . 

Search the buffer for the text TXRTE; if not 
found, write out the buffer, read the next 
page^ search again; continue this cycle 
until either TXRTE Is found or end of file is 
reached. If TXRTE is found, position the 
pointer at the beginning of the line contain- 
ing it, type the line, and insert the contents 
of Q-register 1 immediately before that line. 

Read pages from the input fije and write 
them on the output file until end of file 
(marked by the text TXTEND;) is found. 
At that point, move the pointer to the be- 
ginning of the buffer (J), and search for all 
As in the buffer (SA); if the character follow- 
ing the A Is a digit, through 9 (ASCII codes 
48iQ through 57^q), change the A to a B 
(IB); continue searching and modifying until 
end of buffer is reached; write out the last 
page and write end of file on the output 
device . 

Return control to the Monitor after all output 
requests have been completed. 



Diagnostic Messages 



c 



Message 



?n 
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TECO Diagnostic Messages 



Meaning 



n is a decimal number associated with one of the list of error 
messages given in Table 2-5. 

TECO ignores the remainder of the command string and returns 
to the idle state. At this point, the user can type back ?, 
causing TECO to type out the command string terminated by 
the bad command . 



Error List for ?n Messages 



10 



9 
10 

11 
12 
13 
14 



Meani ng 



TECO attempted to read commands beyond the terminating $$ . 
This error is probably due to an unterminated @I or @S command, 
or to an unsatisfied O command . 



Sar 



1. 



An attempt was made to supply more than two arguments to a 
command, either by the use of two commas or by "H ," . 

Too many right parentheses . 

= command with no argument . 

U command with no argument. 

Q,U,X, or G command specifies an illegal Q-register (i.e./ 
other than A through Z or through 9) , 

In an X command, the second argument is not greater than the 
first . 

In a G command, the Q-register does not contain text. 

In a G command, the data in the Q-register is not in correct 
form (this is an internal error). 

In an Ec command (e.g., ER, EW, EF, etc.), c is illegal. 

File not found on LOOKUP. 

Blank filename specified for directory device. 

Project -prog rammer number specified does not have UFD. 
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Error List for ?n Messages 



"10 


Meaning 


15 


ProtecMon failure on disk. 


16 


File cannot be accessed because it is currently being written. 


17 


LOOKUP or ENTER returned error type 6 (not defined). 


18 


LOOKUP or ENTER returned error type 7 (no device) . 


19 


Directory full on ENTER. 


20 


Requested I/O device not available. 


21 


Not assigned . 


22 


EW command between an EB command and its EF. 


23 


EM command given, but no input file open . 


24 


nEM command, where n is not in the range 1 to 16. 


25 


Internal error: EF after EB, but no input file is open. 


26 


Illegal character in filename. 


27 


Illegal character in project-programmer number. 


28 


Attempt to read an input page when no file has been opened 




for input . 


29 " 


I/O error on input device. 


30 


Attempt to output a page when no file has been opened for output. 


31 


Two arguments were supplied for an L command. 


32 


Attempt to move pointer beyond page. 


33 


A 2-argument command has its second argument less than the 




first argument. 


34 


Attempt to search for too long a character string . 


35 


Search command did not find the required string . 


36 


In an M command , the Q-register does not contain text . 


37 


In an M command, the data in the Q-register is not in correct 




form (this is an internal error). 


38 


Unmatched right angle bracket. 
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Error List for ?n Messages 



"10 


Meaning 


39 


; encountered when not in iteration . 


40 


" command with no numeric argument, or "x where x is not 
G,L,E,N,orC. 


41 


This is the number typed out at the end of the ? command's dump 
of the command string in error. Refer to the number of the previous 
error . 


42 


A character has been encountered as an undefined command . 


43 


A tD command, when DDT has not been loaded with TECO . 


44 


Not enough core available from the Monitor. 


45 


A RENAME attempted with either a blank name or one already in 
use. Presumably due to a fault in the EB command. 



Debugging Aids - As an aid in debugging macros and iterations, TECO can be set in the trace mode by 
typing ? as any character other than the first in a command string. When in Trace Mode, TECO types 
out each command as it ts interpreted, interspersed with requested output. Typing a second ? in the 
same manner takes TECO out of Trace Mode; the ? can be typed each time it is desired to change the 
current mode , 

The user can also type comments on his teletype sheet as he executes TECO by typing: 

t Atext tA 

This causes all text entered to be printed on the teletype (with the exception of terminating tA 
character) . 



NOTE 

Since the terminator tA is not a command, it must be 
typed by holding the CTRL key down while typing A. 
It cannot be entered as "up arrow. A." 



If DDT has been loaded along with TECO by the Linking Loader, control can be transferred to DDT by 
using thfe command tD. 



Monitor Commands 

To call in TECO and open a new file for creation: 

Monitor Commands Equivalent CUSP Commands 

^MAKE filename .ext _^RTECO 

* (text input commands) $$ *EWDSK:filename.ext $$ 

*EX $$ *(text input commands) $$ 

!:ex$$ 

To call in TECO and open an already existing file for creation: 

Monitor Commands Equivalent CUSP Commands 

JECO filename .ext ^R TECO 

*(editing) $$ *EBDSK:filename.ext $ Y $$ 

*EX$$ *(editing) $$ 

*EX$$ 
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